object RegDlg: TRegDlg Left = 195 Top = 111 HelpContext = 100 BorderIcons = [] BorderStyle = bsDialog Caption = 'Alarm Clock - Register' ClientHeight = 149 ClientWidth = 275 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 13 Top = 5 Width = 173 Height = 13 Caption = 'Type your registration number below:' end object SorryLabel: TLabel Left = 13 Top = 53 Width = 242 Height = 13 Caption = 'Sorry - that registration number is not valid' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Label2: TLabel Left = 15 Top = 70 Width = 165 Height = 13 Caption = 'Your name (minimum 2 characters):' end object RegNoBox: TEdit Left = 13 Top = 26 Width = 249 Height = 21 TabOrder = 0 end object OKButt: TButton Left = 60 Top = 117 Width = 75 Height = 25 Caption = 'OK' Default = True TabOrder = 2 OnClick = OKButtClick end object CancelButt: TButton Left = 142 Top = 117 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 3 OnClick = CancelButtClick end object RegNameBox: TEdit Left = 15 Top = 85 Width = 246 Height = 21 TabOrder = 1 Text = '?' end end